home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amosprog.lha / window.AMOS / window.amosSourceCode
AMOS Source Code  |  1995-10-02  |  579b  |  40 lines
  1. 'Window in standard intuition!!! 
  2. Amos To Back 
  3. Reserve As Work 17,3000
  4. KUPA=Start(17)
  5. STRU$='Super okienko'
  6. Doke KUPA,160
  7. Doke KUPA+2,50
  8. Doke KUPA+4,340
  9. Doke KUPA+6,100
  10. Doke KUPA+8,1
  11. Doke KUPA+10,0
  12. Doke KUPA+12,0
  13. Doke KUPA+14,0
  14. Doke KUPA+16,$F
  15. Loke KUPA+18,0
  16. Loke KUPA+22,0
  17. Loke KUPA+26,Varptr(STRU$)
  18. Loke KUPA+30,0
  19. Loke KUPA+34,0
  20. Doke KUPA+38,80
  21. Doke KUPA+40,50
  22. Doke KUPA+42,640
  23. Doke KUPA+44,200
  24. Doke KUPA+46,1
  25.  
  26. 'STRU$=STRU$ 
  27. Areg(0)=KUPA
  28. C=Intcall(-204)
  29.  
  30. Areg(1)=0
  31. Dreg(0)=100
  32. STRU$='kuion'
  33. Areg(0)=Varptr(STRU$)
  34. C=Gfxcall(-60)
  35.  
  36. 'Wait 100
  37. 'C=Intcall(-72)
  38. 'Amos To Front 
  39.  
  40. Edit